home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / CD32 / CD32_Support / examples / SA_Examples / cd / CDTest / AudioPause.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-08-31  |  1.0 KB  |  53 lines
  1. /*  AUDIO PAUSE */
  2.  
  3. Address CD.2
  4. OPTIONS RESULTS
  5.  
  6. /*
  7. This is a supplement to the Audio.cd script.  The purpose of this script
  8. is to run along side the audio.cd script and pause the audio play at the
  9. appropriate points in time.
  10. */
  11.  
  12. call delay(10)
  13. call pawsOn
  14. call delay(10)
  15. call pawsOff
  16. call delay(24)
  17. call pawsOn       /* Step 10 */
  18. call delay(10)
  19. call pawsOff
  20. call delay(8)
  21. call pawsOn
  22. call delay(10)
  23. call pawsOff
  24.  
  25. say 'AudioPause.rexx is done executing'
  26.  
  27. exit
  28.  
  29. /***** FUNCTIONS ********************************************************/
  30.  
  31. pawsOn: procedure
  32. PAUSE ON
  33. INFO thisDisk
  34. if thisDisk.Paused = 0 then say 'Audio play has been unpaused.'
  35.   else say 'Audio play has been paused.'
  36. return
  37.  
  38. pawsOff: procedure
  39. PAUSE OFF
  40. INFO thisDisk
  41. if thisDisk.Paused = 0 then say 'Audio play has been unpaused.'
  42.   else say 'Audio play has been paused.'
  43. return
  44.  
  45. delay: procedure
  46. arg timeindex
  47.  /* say 'Beginning' timeindex 'second delay.' */
  48.   call time 'R'
  49.   do until time('E') >= timeindex
  50.  /* if (time('E') // 2 = 0) & (time('E') > 1) then say ' Time left =' time('E') */
  51.   end
  52. return
  53.